home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / HC.LSP < prev    next >
Text File  |  1995-01-20  |  416b  |  19 lines
  1. ;Heals circles that have been trimmed
  2. ;Bob Zelna
  3.  
  4. (DEFUN C:HC ()
  5. (SETQ H (SSGET))
  6. (SETQ F (SSLENGTH H) G 0)
  7. (WHILE (< G F)
  8. (IF (= "ARC" (CDR (ASSOC 0 (SETQ E (ENTGET (SETQ D (SSNAME H G)))))))
  9.  (PROGN
  10.   (SETQ A (CDR (ASSOC 8 E)))
  11.   (SETQ C (CDR (ASSOC 10 E)))
  12.   (SETQ B (CDR (ASSOC 40 E)))
  13.   (ENTDEL D)
  14.   (COMMAND "LAYER" "S" A "")
  15.   (COMMAND "CIRCLE" C B)
  16.   (SETQ G (+ 1 G)))
  17. (SETQ G (+ 1 G))))
  18. )
  19.